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

change 'include' and 'include-bitmap' to better match normal module-path syntax

Browse Source 
svn: r7936

original commit: eab8008c4f62d8561c57d8642860f0c5061ddbc7
This commit is contained in:
Matthew Flatt 2007-12-10 16:13:25 +00:00
parent f01042e396
commit f60d64abf9
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mrlib/include-bitmap.ss
View File

@ -13,7 +13,7 @@
(define-syntax (-include-bitmap stx) (define-syntax (-include-bitmap stx)
(syntax-case stx () (syntax-case stx ()
[(_ orig-stx source path-spec type) [(_ orig-stx source path-spec type)
(let* ([c-file (resolve-path-spec #'path-spec #'source #'orig-stx #'build-path)] (let* ([c-file (resolve-path-spec #'path-spec #'source #'orig-stx)]
[content [content
(with-handlers ([exn:fail? (with-handlers ([exn:fail?
(lambda (exn) (lambda (exn)

6
collects/mrlib/syntax-browser.ss
View File

@ -6,7 +6,7 @@ needed to really make this work:
|# |#
(module syntax-browser mzscheme (module syntax-browser scheme/base
(require (lib "pretty.ss") (require (lib "pretty.ss")
(lib "list.ss") (lib "list.ss")
(lib "class.ss") (lib "class.ss")
@ -400,7 +400,7 @@ needed to really make this work:
(define black-style-delta (make-object style-delta% 'change-normal-color)) (define black-style-delta (make-object style-delta% 'change-normal-color))
(define green-style-delta (make-object style-delta%)) (define green-style-delta (make-object style-delta%))
(send green-style-delta set-delta-foreground "forest green") (void (send green-style-delta set-delta-foreground "forest green"))
(define small-style (make-object style-delta% 'change-size 4)) (define small-style (make-object style-delta% 'change-size 4))
(define turn-snip% (define turn-snip%
@ -591,7 +591,7 @@ needed to really make this work:
(contents ,contents)) (contents ,contents))
(foldl (foldl
add-properties add-properties
(datum->syntax-object (datum->syntax
#'here ;; ack #'here ;; ack
(unmarshall-object contents) (unmarshall-object contents)
(list (unmarshall-object src) (list (unmarshall-object src)