Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

allow internal defines in guard

Browse source
This commit is contained in:
Alex Shinn 2016-01-20 07:03:41 +09:00
parent a01ca4bad6
commit 557b31e1dd
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/scheme/misc-macros.scm
View file

@ -25,7 +25,7 @@
(raise-continuable condition))) (raise-continuable condition)))
clause ...)))))))) clause ...))))))))
(lambda () (lambda ()
(let ((res (begin e1 e2 ...))) (let ((res (let () e1 e2 ...)))
(guard-k (lambda () res))))))))))) (guard-k (lambda () res)))))))))))
(define-syntax guard-aux (define-syntax guard-aux