Fixed bug 162153: Bytevectors should be self evaluating.

2007-11-12 03:34:48 -05:00 · 2007-11-12 03:34:48 -05:00 · eaeb6a4876
parent 43eb1bfcb3
commit eaeb6a4876
1 changed files with 2 additions and 1 deletions
--- 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