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

- fixed printer of syntax annotations which was printing 

source info as #<syntax --- (char --- of ---)> instead
  of             #<syntax --- [char --- of ---]>.
This commit is contained in:
Abdulaziz Ghuloum 2008-11-15 13:26:23 -05:00
parent ab6f0567a1
commit fda6a1a2a6
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/ikarus.strings.ss
View File

@ -206,7 +206,7 @@
(die who "not a string" (die who "not a string"
(car s*))]))) (car s*))])))
(die who "not a string" s2)))])) (die who "not a string" s2)))]))
(die who "not a string0" s1)))) (die who "not a string" s1))))
(define ($string<? s1 s2) (define ($string<? s1 s2)
(let ([n1 ($string-length s1)] (let ([n1 ($string-length s1)]

2
scheme/last-revision
View File

@ -1 +1 @@
1680 1681

4
scheme/psyntax.expander.ss
View File

@ -265,11 +265,11 @@
(when (annotation? expr) (when (annotation? expr)
(let ((src (annotation-source expr))) (let ((src (annotation-source expr)))
(when (pair? src) (when (pair? src)
(display " (char " p) (display " [char " p)
(display (cdr src) p) (display (cdr src) p)
(display " of " p) (display " of " p)
(display (car src) p) (display (car src) p)
(display ")" p))))) (display "]" p)))))
(display ">" p))) (display ">" p)))
;;; First, let's look at identifiers, since they're the real ;;; First, let's look at identifiers, since they're the real