;; $Id: main.ss,v 1.5 2009/05/05 07:38:23 neilpair Exp $

#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)

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