From f60d64abf98190f7942f6790bf3bb934fd03fa54 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 10 Dec 2007 16:13:25 +0000 Subject: [PATCH] change 'include' and 'include-bitmap' to better match normal module-path syntax svn: r7936 original commit: eab8008c4f62d8561c57d8642860f0c5061ddbc7 --- collects/mrlib/include-bitmap.ss | 2 +- collects/mrlib/syntax-browser.ss | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/mrlib/include-bitmap.ss b/collects/mrlib/include-bitmap.ss index 7bb9f95b..3fb2ea4b 100644 --- a/collects/mrlib/include-bitmap.ss +++ b/collects/mrlib/include-bitmap.ss @@ -13,7 +13,7 @@ (define-syntax (-include-bitmap stx) (syntax-case stx () [(_ 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 (with-handlers ([exn:fail? (lambda (exn) diff --git a/collects/mrlib/syntax-browser.ss b/collects/mrlib/syntax-browser.ss index 12541194..7f6bdf93 100644 --- a/collects/mrlib/syntax-browser.ss +++ b/collects/mrlib/syntax-browser.ss @@ -6,7 +6,7 @@ needed to really make this work: |# -(module syntax-browser mzscheme +(module syntax-browser scheme/base (require (lib "pretty.ss") (lib "list.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 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 turn-snip% @@ -591,7 +591,7 @@ needed to really make this work: (contents ,contents)) (foldl add-properties - (datum->syntax-object + (datum->syntax #'here ;; ack (unmarshall-object contents) (list (unmarshall-object src)