* Added bound-identifier=?
This commit is contained in:
parent
5063f08e32
commit
6e1c1f847a
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
@ -7,7 +7,8 @@
|
|||
|
||||
(library (ikarus syntax)
|
||||
(export identifier? syntax-dispatch environment environment?
|
||||
eval generate-temporaries free-identifier=? syntax-error
|
||||
eval generate-temporaries free-identifier=?
|
||||
bound-identifier=? syntax-error
|
||||
eval-r6rs-top-level boot-library-expand eval-top-level)
|
||||
(import
|
||||
(r6rs)
|
||||
|
@ -2260,6 +2261,13 @@
|
|||
(free-id=? x y)
|
||||
(error 'free-identifier=? "~s is not an identifier" y))
|
||||
(error 'free-identifier=? "~s is not an identifier" x))))
|
||||
(define bound-identifier=?
|
||||
(lambda (x y)
|
||||
(if (id? x)
|
||||
(if (id? y)
|
||||
(bound-id=? x y)
|
||||
(error 'bound-identifier=? "~s is not an identifier" y))
|
||||
(error 'bound-identifier=? "~s is not an identifier" x))))
|
||||
(define syntax-error
|
||||
(lambda (x . args)
|
||||
(unless (andmap string? args)
|
||||
|
|
|
@ -408,6 +408,7 @@
|
|||
[syntax-error i syncase]
|
||||
[generate-temporaries i syncase]
|
||||
[free-identifier=? i syncase]
|
||||
[bound-identifier=? i syncase]
|
||||
[code? i]
|
||||
[immediate? i]
|
||||
[pointer-value i]
|
||||
|
|
Loading…
Reference in New Issue