From c2982a425273c852f4149d77136115edf4f122e8 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Sun, 3 Aug 2014 14:46:08 +0900
Subject: [PATCH] no need to overwrite eval

---
 piclib/prelude.scm | 20 ++++++--------------
 1 file changed, 6 insertions(+), 14 deletions(-)

diff --git a/piclib/prelude.scm b/piclib/prelude.scm
index fd783a07..460047d9 100644
--- a/piclib/prelude.scm
+++ b/piclib/prelude.scm
@@ -380,6 +380,7 @@
 ;;; Record Type
 (define-library (picrin record)
   (import (scheme base)
+          (scheme eval)
           (picrin macro))
 
   (define record-marker (list 'record-marker))
@@ -387,20 +388,11 @@
   (define real-vector? vector?)
 
   (set! vector?
-        (lambda (x)
-          (and (real-vector? x)
-               (or (= 0 (vector-length x))
-                   (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?))))
-  |#
+    (lambda (x)
+      (and (real-vector? x)
+           (or (= 0 (vector-length x))
+               (not (eq? (vector-ref x 0)
+                         record-marker))))))
 
   (define (record? x)
     (and (real-vector? x)