Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-12 23:37:38 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added (if-syntax?)

Browse source
This commit is contained in:
Justin Ethier 2016-12-07 21:28:24 +00:00
parent 5179f2261b
commit 03f30ecf56
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
scheme/cyclone/util.sld
View file

@ -13,6 +13,7 @@
;; Code analysis ;; Code analysis
tagged-list? tagged-list?
if? if?
if-syntax?
begin? begin?
lambda? lambda?
pair->list pair->list
@ -90,6 +91,14 @@
(define (if? exp) (define (if? exp)
(tagged-list? 'if exp)) (tagged-list? 'if exp))
(define (if-syntax? exp)
(and
(if? exp)
(or
(= (length exp) 3)
(= (length exp) 4))))
; begin? : exp -> boolean ; begin? : exp -> boolean
(define (begin? exp) (define (begin? exp)
(tagged-list? 'begin exp)) (tagged-list? 'begin exp))