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

Remove this-expression-source-directory.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2015-12-11 10:42:54 -05:00
parent c4793a218f
commit 83a7c7b8f1
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gui-test/tests/gracket/item.rkt
View File

@ -1,7 +1,6 @@
#lang racket/gui #lang racket/gui
(require racket/class (require racket/class racket/runtime-path (only-in mzlib/etc opt-lambda))
mzlib/etc)
(define my-txt #f) (define my-txt #f)
(define my-lb #f) (define my-lb #f)
@ -188,8 +187,10 @@
(define OTHER-LABEL "XXXXXXXXXXXXXXXXXXXXXX") (define OTHER-LABEL "XXXXXXXXXXXXXXXXXXXXXX")
(define-runtime-path here-path ".")
(define-values (icons-path local-path) (define-values (icons-path local-path)
(let ([d (this-expression-source-directory)]) (let ([d here-path])
(values (values
(lambda (n) (lambda (n)
(collection-file-path n "icons")) (collection-file-path n "icons"))