mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-24 04:25:06 +02:00
Added header comments
This commit is contained in:
parent
70927e1fca
commit
286caff733
2 changed files with 13 additions and 1 deletions
10
eval.scm
10
eval.scm
|
@ -1,6 +1,14 @@
|
||||||
;; The meta-circular evaluator from SICP 4.1
|
;; Cyclone Scheme
|
||||||
|
;; Copyright (c) 2014, Justin Ethier
|
||||||
|
;; All rights reserved.
|
||||||
|
;;
|
||||||
|
;; The Cyclone interpreter, based on the meta-circular evaluator from SICP 4.1:
|
||||||
;; http://mitpress.mit.edu/sicp/full-text/book/book-Z-H-26.html#%_sec_4.1
|
;; http://mitpress.mit.edu/sicp/full-text/book/book-Z-H-26.html#%_sec_4.1
|
||||||
;;
|
;;
|
||||||
|
;; The code in this module is used both by the compiler and at runtime, so
|
||||||
|
;; when bootstrapping from a Scheme, keep in mind the code in this module
|
||||||
|
;; cannot use features that are not also provided by Cyclone.
|
||||||
|
;;
|
||||||
|
|
||||||
(define (eval exp . env)
|
(define (eval exp . env)
|
||||||
(if (null? env)
|
(if (null? env)
|
||||||
|
|
|
@ -4,6 +4,10 @@
|
||||||
;;
|
;;
|
||||||
;; This module contains the s-expression parser and supporting functions.
|
;; This module contains the s-expression parser and supporting functions.
|
||||||
;;
|
;;
|
||||||
|
;; The code in this module is used both by the compiler and at runtime, so
|
||||||
|
;; when bootstrapping from a Scheme, keep in mind the code in this module
|
||||||
|
;; cannot use features that are not also provided by Cyclone.
|
||||||
|
;;
|
||||||
;; FUTURE: if this was a module/library, would probably only want to export
|
;; FUTURE: if this was a module/library, would probably only want to export
|
||||||
;; read and read-all
|
;; read and read-all
|
||||||
;;
|
;;
|
||||||
|
|
Loading…
Add table
Reference in a new issue