From 2e5ae3f0c26dcf3a64a1ae39b00690a73c9084bd Mon Sep 17 00:00:00 2001
From: bnewbold <bnewbold@robocracy.org>
Date: Tue, 26 Apr 2016 00:20:30 -0400
Subject: rust: have car and cdr handle 'quote' (hack)

---
 minimal.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'minimal.scm')

diff --git a/minimal.scm b/minimal.scm
index 6e4c3c4..5c953e6 100644
--- a/minimal.scm
+++ b/minimal.scm
@@ -20,7 +20,7 @@
 (define first
   (lambda (p) (car p)))
 
-(define second 
+(define second
   (lambda (p) (car (cdr p))))
 
 (define third
@@ -58,7 +58,7 @@
   (lambda (name table table-f)
     (cond
      ((null? table) (table-f name))
-     (else (lookup-in-entry name 
+     (else (lookup-in-entry name
 			    (car table)
 			    (lambda (n)
 			      (lookup-in-table n (cdr table) table-f)))))))
@@ -105,9 +105,9 @@
 ; need generic true/false booleans, a number type, and a symbol type
 ; also need a mutable "table" collection
 (define *const
-  (lambda (e table) 
-    (cond          
-     ((number? e) e) 
+  (lambda (e table)
+    (cond
+     ((number? e) e)
      ((eq? e #t) #t)
      ((eq? e #f) #f)
      (else (build (quote builtin) e)))))
-- 
cgit v1.2.3