From f17f2f3a7777e516c97c3f995019f39d7cbe41ae Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Wed, 19 Feb 2014 01:59:05 +0900
Subject: [PATCH] comment out eval redefinition

---
 piclib/built-in.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/piclib/built-in.scm b/piclib/built-in.scm
index ef5d4dfc..a0677118 100644
--- a/piclib/built-in.scm
+++ b/piclib/built-in.scm
@@ -763,11 +763,14 @@
 	     (not (eq? (vector-ref x 0)
 		       record-marker)))))
 
+  #|
+  ;; (scheme eval) is not provided for now
   (define eval
     (let ((real-eval eval))
       (lambda (exp env)
 	((real-eval `(lambda (vector?) ,exp))
 	 vector?))))
+  |#
 
   (define (record? x)
     (and (real-vector? x)