diff options
author | michele.simionato <devnull@localhost> | 2009-04-19 14:55:18 +0000 |
---|---|---|
committer | michele.simionato <devnull@localhost> | 2009-04-19 14:55:18 +0000 |
commit | c214d459cad0a463716c83c9eb12f22c9c42bf75 (patch) | |
tree | 337112f8a0ddefea921384b15bd6d33b0fe1e77a /scheme | |
parent | 46ecf8fc125713c89d8d611b0a63927f536d9222 (diff) | |
download | micheles-c214d459cad0a463716c83c9eb12f22c9c42bf75.tar.gz |
Thanks to the help of Aziz and Leppie, the major issue of sweet-macros
not working at the REPL is solved!
Diffstat (limited to 'scheme')
-rw-r--r-- | scheme/sweet-macros/main.sls | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/scheme/sweet-macros/main.sls b/scheme/sweet-macros/main.sls index d1b4775..858dc65 100644 --- a/scheme/sweet-macros/main.sls +++ b/scheme/sweet-macros/main.sls @@ -1,7 +1,11 @@ (library (sweet-macros) -(export syntax-match def-syntax syntax-expand) +(export syntax-match def-syntax syntax-expand sub) (import (rnrs)) +(define-syntax sub ; needed to make Ikarus REPL happy + (lambda (x) + (syntax-violation #f "incorrect use of auxiliary keyword" x))) + ;;GUARDED-SYNTAX-CASE (define-syntax guarded-syntax-case (let ((add-clause |