Permalink
Browse files

reformat

  • Loading branch information...
1 parent 2139060 commit 54e66297b232fad7db7a39713efa1fd4541de0ff @kmcallister committed Feb 26, 2012
Showing with 8 additions and 12 deletions.
  1. +8 −12 prelude.qop
View
20 prelude.qop
@@ -1,16 +1,12 @@
((vau (name-of-define null) env
- (set-car! env
- (cons
- (cons
- name-of-define
- (cons
- (vau (name exp) defn-env
- (set-car! defn-env
- (cons
- (cons name (cons (eval defn-env exp) null))
- (car defn-env))))
- null))
- (car env))))
+ (set-car! env (cons
+ (cons name-of-define
+ (cons (vau (name exp) defn-env
+ (set-car! defn-env (cons
+ (cons name (cons (eval defn-env exp) null))
+ (car defn-env))))
+ null))
+ (car env))))
define ())
(define if (vau (b t f) env

0 comments on commit 54e6629

Please sign in to comment.