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

Check the number of args to delay and delay-force

Browse source
This commit is contained in:
Kris Katterjohn 2020-07-08 19:15:06 -04:00
parent 6fabc92b3d
commit 948252517f
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/init-7.scm
View file

@ -360,11 +360,15 @@
(define-syntax delay-force (define-syntax delay-force
(er-macro-transformer (er-macro-transformer
(lambda (expr rename compare) (lambda (expr rename compare)
(if (null? (cdr expr)) (error "not enough args" expr))
(if (not (null? (cddr expr))) (error "too many args" expr))
`(,(rename 'promise) #f (,(rename 'lambda) () ,(cadr expr)))))) `(,(rename 'promise) #f (,(rename 'lambda) () ,(cadr expr))))))
(define-syntax delay (define-syntax delay
(er-macro-transformer (er-macro-transformer
(lambda (expr rename compare) (lambda (expr rename compare)
(if (null? (cdr expr)) (error "not enough args" expr))
(if (not (null? (cddr expr))) (error "too many args" expr))
`(,(rename 'delay-force) (,(rename 'promise) #t ,(cadr expr)))))) `(,(rename 'delay-force) (,(rename 'promise) #t ,(cadr expr))))))
(define-syntax define-auxiliary-syntax (define-syntax define-auxiliary-syntax