#lang r5rs

(#%require (only scheme/base
                 error
                 print-mpair-curly-braces
                 print-pair-curly-braces)
           (planet soegaard/sicp/sicp))

(define-syntax sicp-error
  (syntax-rules ()
    ((_ REASON ARG ...) (error REASON ARG ...))))

(define true #t)

(define false #f)

(define nil '())

(define (identity x) x)

;; (print-mpair-curly-braces #f)
;; (print-pair-curly-braces  #t)

(#%provide
 
 (for-syntax syntax-rules ...)
 (all-from r5rs)
 (all-from (planet soegaard/sicp/sicp))
 (rename sicp-error error)
 false
 identity
 nil
 true
 
 )