conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove scheme implemetation of identifier=?

This commit is contained in:
Yuichi Nishiwaki 2014-09-04 19:14:27 +09:00
parent be9d518e2f
commit 85ccc30821
1 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
piclib/picrin/macro.scm
View File

@ -36,18 +36,6 @@
(dictionary-set! cache sym val) (dictionary-set! cache sym val)
val)))))) val))))))
(define (identifier=? env1 sym1 env2 sym2)
(define (resolve sym env)
(define x (make-identifier sym env))
(define y (make-identifier sym env))
(if (eq? x y)
x
sym)) ; resolved to no variable
(eq? (resolve sym1 env1)
(resolve sym2 env2)))
(define (make-syntactic-closure env free form) (define (make-syntactic-closure env free form)
(define resolve (define resolve