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

.

Browse Source 
original commit: 6ea8536eee3b588453b579b7206cd4e5a9f31ea2
This commit is contained in:
Matthew Flatt 2003-06-26 16:25:16 +00:00
parent f3b5810173
commit a8f6441b54
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2,7 +2,8 @@
(require (lib "mred.ss" "mred") (require (lib "mred.ss" "mred")
(lib "class.ss") (lib "class.ss")
(lib "file.ss")) (lib "file.ss"))
(require-for-syntax (lib "path-spec.ss" "syntax")) (require-for-syntax (lib "path-spec.ss" "syntax")
(lib "cm-accomplice.ss"))
(provide include-bitmap (provide include-bitmap
include-bitmap/relative-to) include-bitmap/relative-to)
@ -23,6 +24,7 @@
(with-input-from-file c-file (with-input-from-file c-file
(lambda () (lambda ()
(read-string (file-size c-file)))))]) (read-string (file-size c-file)))))])
(register-external-file c-file)
(with-syntax ([content content] (with-syntax ([content content]
[c-file c-file]) [c-file c-file])
(syntax/loc stx (syntax/loc stx