andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

TYPE-0

This commit is contained in:
Jan Nieuwenhuizen 2019-11-17 16:01:53 +01:00 committed by Jan (janneke) Nieuwenhuizen
parent 3fd88e2daf
commit 7da59c79a0
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
mes/module/mes/type-0.mes
View File

@ -77,10 +77,10 @@
(eq? (core:type x) <cell:port>)) (eq? (core:type x) <cell:port>))
(define (procedure? p) (define (procedure? p)
(cond ((builtin? p) #t) (and (or (builtin? p)
((and (pair? p) (eq? (car p) 'lambda))) (and (pair? p) (eq? (car p) 'lambda))
((closure? p) #t) (closure? p))
(#t #f))) #t))
(define (special? x) (define (special? x)
(eq? (core:type x) <cell:special>)) (eq? (core:type x) <cell:special>))