suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

..

Browse Source 
original commit: 30b1e8cb2f4ccdaf87080899798b529fc6085868
This commit is contained in:
Robby Findler 2002-10-01 02:02:01 +00:00
parent 23122edff3
commit 2743a31f3c
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
collects/drscheme/private/syntax-browser.ss
View File

@ -30,7 +30,7 @@ needed to really make this work:
(define syntax-snipclass% (define syntax-snipclass%
(class snip-class% (class snip-class%
(define/override (read stream) (define/override (read stream)
(let ([str (send stream get-str)]) (let ([str (send stream get-string)])
(make-object syntax-snip% (unmarshall-syntax (read-from-string str))))) (make-object syntax-snip% (unmarshall-syntax (read-from-string str)))))
(super-instantiate ()))) (super-instantiate ())))
@ -101,10 +101,12 @@ needed to really make this work:
(piece-of-info "Column" (syntax-column stx)) (piece-of-info "Column" (syntax-column stx))
(piece-of-info "Span" (syntax-span stx)) (piece-of-info "Span" (syntax-span stx))
(piece-of-info "Original?" (syntax-original? stx)) (piece-of-info "Original?" (syntax-original? stx))
(insert/big "Properties\n") (let ([properties (syntax-properties stx)])
(for-each (unless (null? properties)
(lambda (prop) (show-property stx prop)) (insert/big "Properties\n")
(syntax-properties stx))) (for-each
(lambda (prop) (show-property stx prop))
properties))))
(define (show-property stx prop) (define (show-property stx prop)
(piece-of-info (format "'~a" prop) (syntax-property stx prop))) (piece-of-info (format "'~a" prop) (syntax-property stx prop)))
@ -465,8 +467,8 @@ needed to really make this work:
(span ,(syntax-span stx)) (span ,(syntax-span stx))
(original? ,(syntax-original? stx)) (original? ,(syntax-original? stx))
(properties (properties
,@(map (lambda (x) `(,x ,(syntax-property x 'bound-in-source))) ,@(map (lambda (x) `(,x ,(syntax-property stx x)))
(syntax-properties x))) (syntax-properties stx)))
(contents (contents
,(marshall-object (syntax-e stx))))) ,(marshall-object (syntax-e stx)))))
@ -478,7 +480,12 @@ needed to really make this work:
[(pair? obj) [(pair? obj)
`(pair ,(cons (marshall-object (car obj)) `(pair ,(cons (marshall-object (car obj))
(marshall-object (cdr obj))))] (marshall-object (cdr obj))))]
[else `(other ,obj)])) [(or (symbol? obj)
(char? obj)
(string? obj)
(boolean? obj))
`(other ,obj)]
[else 'unknown-object]))
(define (unmarshall-syntax stx) (define (unmarshall-syntax stx)
(match stx (match stx