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

Use common tagged-list? function

Browse source
This commit is contained in:
Justin Ethier 2015-07-01 21:00:27 -04:00
parent 78de607312
commit d6d1b31521
2 changed files with 1 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
eval.scm
View file

@ -17,11 +17,6 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Expression handling helper functions ;; Expression handling helper functions
(define (tagged-list? tag exp)
(if (pair? exp)
(equal? (car exp) tag)
#f))
(define (self-evaluating? exp) (define (self-evaluating? exp)
(cond ((number? exp) #t) (cond ((number? exp) #t)
((boolean? exp) #t) ((boolean? exp) #t)

1
scheme/eval.sld
View file

@ -1,5 +1,6 @@
(define-library (scheme eval) (define-library (scheme eval)
(import (import
(scheme cyclone util)
(scheme base) (scheme base)
(scheme file) (scheme file)
(scheme write) (scheme write)