mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

(make-code): Check argument types.

Browse source 
(make-code:and, make-code:or): Pass env to make-code.
This commit is contained in:
Keisuke Nishida 2000-08-22 18:27:31 +00:00
parent e54350691e
commit b1637a1ebd
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
vm/types.scm
View file

@ -50,6 +50,8 @@
(is-a? obj <vm:code>))
(define-public (make-code tag env . args)
(assert keyword? tag)
(assert env? env)
(make <vm:code> #:tag tag #:env env #:args args))
@ -349,12 +351,12 @@
(define-public (make-code:and env . args)
(assert env? env)
(assert-for-each code? args)
(apply make-code #:and args))
(apply make-code #:and env args))
(define-public (make-code:or env . args)
(assert env? env)
(assert-for-each code? args)
(apply make-code #:or args))
(apply make-code #:or env args))
(define-public (make-code:begin env . body)
(assert env? env)