From 84b437397462a5f9759d1f1d5cc76d13586549dd Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 22 Apr 2015 18:03:32 -0400
Subject: [PATCH] Self-contained example

---
 test.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/test.scm b/test.scm
index d1ebdcd8..2c9d577e 100644
--- a/test.scm
+++ b/test.scm
@@ -1,3 +1,5 @@
+(define (eval2 exp . env)
+  exp)
 
 (define (test)
   (call/cc
@@ -21,8 +23,8 @@
           (repl))))))))
 (define (repl)
   (display "cyclone> ")
-  (let ((c 'done)) ;(read))))   ;; fine with this line
-  ;(let ((c (eval 'done))) ;(read)))) ;; Crashes with this line
+  ;(let ((c 'done)) ;(read))))   ;; fine with this line
+  (let ((c (eval2 'done))) ;(read)))) ;; Crashes with this line
   ;(let ((c (read)))
     (cond
       ((not (eof-object? c))