conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixed bug 162153: Bytevectors should be self evaluating.

This commit is contained in:
Abdulaziz Ghuloum 2007-11-12 03:34:48 -05:00
parent 43eb1bfcb3
commit eaeb6a4876
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scheme/psyntax.expander.ss
View File

@ -427,7 +427,8 @@
(define self-evaluating? (define self-evaluating?
(lambda (x) ;;; am I missing something here? (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. ;;; strip is used to remove the wrap of a syntax object.
;;; It takes an stx's expr and marks. If the marks contain ;;; It takes an stx's expr and marks. If the marks contain