From eaeb6a4876173c12fb80c7b8703bc405a576324f Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Mon, 12 Nov 2007 03:34:48 -0500
Subject: [PATCH] Fixed bug 162153: Bytevectors should be self evaluating.

---
 scheme/psyntax.expander.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scheme/psyntax.expander.ss b/scheme/psyntax.expander.ss
index f59a631..29b5f91 100644
--- a/scheme/psyntax.expander.ss
+++ b/scheme/psyntax.expander.ss
@@ -427,7 +427,8 @@
 
   (define self-evaluating?
     (lambda (x) ;;; am I missing something here?
-      (or (number? x) (string? x) (char? x) (boolean? x))))
+      (or (number? x) (string? x) (char? x) (boolean? x)
+          (bytevector? x))))
 
   ;;; strip is used to remove the wrap of a syntax object.
   ;;; It takes an stx's expr and marks.  If the marks contain