racket/collects/graphics/turtle-sig.ss
Matthew Flatt 39cedb62ed v3.99.0.2
svn: r7706
2007-11-13 12:40:00 +00:00

33 lines
591 B
Scheme

#lang scheme/signature
turtles
clear
turn turn/radians
move move-offset
draw draw-offset
erase erase-offset
save-turtle-bitmap
splitfn split*fn tpromptfn
turtle-window-size
display-lines-in-drawing
(define-syntaxes (split)
(lambda (x)
(syntax-case x ()
((_ args ...)
(syntax (splitfn (lambda () args ...)))))))
(define-syntaxes (split*)
(syntax-rules ()
[(_ e0 e ...)
(split*fn (list (lambda () e0) (lambda () e) ...))]))
(define-syntaxes (tprompt)
(lambda (x)
(syntax-case x ()
((_ e1 ...)
(syntax (tpromptfn (lambda () e1 ...)))))))