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

added 'function', Closes PR 11283

Browse Source
This commit is contained in:
Matthias Felleisen 2010-10-13 10:30:50 -04:00
parent bb098fc77c
commit df62ca47e9
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/lang/private/teach.rkt
View File

@ -410,7 +410,8 @@
(syntax->list (quote-syntax
(#%datum
#%top
empty true false)))))
empty true false
)))))
(define (identifier/non-kw? stx)
(and (identifier? stx)
@ -1129,7 +1130,7 @@
"expected a ~a after an open parenthesis, but found ~a"
(if lex-ok?
"name"
"defined name or a primitive operation name")
"defined function name or a primitive operation name")
what))])
(unless (and (identifier? fun) (or lex-ok? undef-check? (not lex?)))
(bad-app (if lex?
@ -1167,7 +1168,7 @@
"expected a ~a after an open parenthesis, but nothing's there"
(if lex-ok?
"name"
"defined name or a primitive operation name")))]
"defined function name or a primitive operation name")))]
[_else (bad-use-error '#%app stx)])))])
(values (mk-app #f) (mk-app #t))))
@ -2264,7 +2265,7 @@
'|function call|
stx
#f
"expected a defined name or a primitive operation name after an ~
"expected a defined function name or a primitive operation name after an ~
open parenthesis, but nothing's there")]
[_else (bad-use-error '#%app stx)]))))

2
collects/tests/htdp-lang/README
View File

@ -2,8 +2,10 @@ The files in this directory test the teaching language implementation.
htdp.rktl
load this file (racket -qr htdp.rktl) to run most of the tests
$ racket -qr htdp.rktl
htdp-image.rktl
load this file in gracket to run the htdp/image tests
$ gracket -qr htdp-image.rktl
See beginner.rktl for more.