Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-16 17:27:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added (symbol=?)

Browse source
This commit is contained in:
Justin Ethier 2015-03-24 17:27:32 -04:00
parent aa1564eda8
commit 3d7b816272
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
trans.scm
View file

@ -115,6 +115,17 @@
(list-tail (cdr lst) (- k 1)))) (list-tail (cdr lst) (- k 1))))
(define (list-ref lst k) (car (list-tail lst k))) (define (list-ref lst k) (car (list-tail lst k)))
(define (reverse lst) (foldl cons '() lst)) (define (reverse lst) (foldl cons '() lst))
(define (symbol=? sym1 sym2 . syms)
(and
(eq? sym1 sym2)
(call/cc
(lambda (return)
(for-each
(lambda (s)
(if (not (eq? s sym1))
(return #f)))
syms)
#t))))
(define (error msg . args) (define (error msg . args)
(raise (cons msg args))) (raise (cons msg args)))
(define (raise obj) (define (raise obj)