Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-20 06:09:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Issue #198 - Remove custom "member" function

Browse source
This commit is contained in:
Justin Ethier 2017-05-08 18:44:29 -04:00
parent 1391186a6f
commit dfdd84d585
1 changed files with 0 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
scheme/cyclone/transforms.sld
View file

@ -183,17 +183,6 @@
;; Utilities. ;; Utilities.
(cond-expand
(cyclone
; member : symbol sorted-set[symbol] -> boolean
(define (member sym S)
(if (not (pair? S))
#f
(if (eq? sym (car S))
#t
(member sym (cdr S))))))
(else #f))
(cond-expand (cond-expand
(cyclone (cyclone
; void : -> void ; void : -> void