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

svn: r15559

Browse Source
This commit is contained in:
Robby Findler 2009-07-25 01:57:00 +00:00
parent 47a473c885
commit 9266b6a24c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/graphics/turtles.ss
View File

@ -4,8 +4,7 @@
mzlib/class mzlib/class
mzlib/class100 mzlib/class100
mzlib/list mzlib/list
mzlib/etc mzlib/etc)
"turtle-sig.ss")
(provide turtles (provide turtles
clear home clear home
@ -19,7 +18,8 @@
splitfn split*fn tpromptfn splitfn split*fn tpromptfn
turtle-window-size turtle-window-size
display-lines-in-drawing) display-lines-in-drawing
split split* tprompt)
(define turtles:window #f) (define turtles:window #f)
(define turtles:shown? #f) (define turtles:shown? #f)
@ -498,4 +498,4 @@
(lambda (x) (lambda (x)
(syntax-case x () (syntax-case x ()
((_ e1 ...) ((_ e1 ...)
(syntax (tpromptfn (lambda () e1 ...))))))) (syntax (tpromptfn (lambda () e1 ...)))))))