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>))
(define (procedure? p)
(cond ((builtin? p) #t)
((and (pair? p) (eq? (car p) 'lambda)))
((closure? p) #t)
(#t #f)))
(and (or (builtin? p)
(and (pair? p) (eq? (car p) 'lambda))
(closure? p))
#t))
(define (special? x)
(eq? (core:type x) <cell:special>))