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

fix require for-label ordering; add tests

Browse Source
This commit is contained in:
Stephen Chang 2013-10-11 04:31:31 -04:00
parent 29ba45bb8d
commit 503f43a3f2
2 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pasterack-test-cases.rkt
View File

@ -4,6 +4,10 @@
(define test-cases
'(
;; proper doc linking
"2425" ; 2htdp/image image? doc link
"3233" ; htdp/bsl image? doc link
"6998" ; matrix mult (example of require id, perm, that's also in #lang)
;; path permissions
"7449" ; delete file
"4749" ; list root

13
pasterack.rkt
View File

@ -96,11 +96,18 @@
(++ "(except-in typed/racket " TR-bad-ids ")\n"
"(only-meta-in 0 (only-in typed/racket " TR-bad-ids "))\n")]
[else ""])
;; when required id is also in lang, favor require
(cond
[(htdp-lang? lang)
(++ (car lang-lst) " (subtract-in (combine-in "
(string-join reqs) ") " (car lang-lst) ")")]
[else (string-join (append lang-lst reqs))])
(++ (string-join reqs) " "
"(subtract-in " (car lang-lst)
" (combine-in " (string-join reqs) "))")]
;; (car lang-lst) " (subtract-in (combine-in "
;; (string-join reqs) ") " (car lang-lst) ")")]
; [else (string-join (append lang-lst reqs))])
[else (++ (string-join reqs) " "
"(subtract-in (combine-in " (string-join lang-lst) ")"
" (combine-in " (string-join reqs) "))")])
"))\n"
"@codeblock|{\n~a}|")
code))