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

made case-lambda work with the magic [ thing and fixed up some test suites

Browse Source 
svn: r3754

original commit: daf17eb61630c33e6e4443c0484d1775b259a754
This commit is contained in:
Robby Findler 2006-07-18 18:55:18 +00:00
parent 1ea9d0b129
commit bc97da390d
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/private/scheme.ss
View File

@ -1266,7 +1266,7 @@
(ormap
(λ (x)
(text-between-equal? x text backward-match before-whitespace-pos))
'("cond" "field" "provide/contract")))
'("case-lambda" "cond" "field" "provide/contract")))
(change-to 2 #\())]))]
[(not (zero? before-whitespace-pos))
;; this is the first thing in the sequence

1
collects/tests/framework/keys.ss
View File

@ -122,6 +122,7 @@
(build-open-bracket-spec "(provide/contract " 18 #\[)
(build-open-bracket-spec "(kond " 5 #\()
(build-open-bracket-spec "(cond " 5 #\[)
(build-open-bracket-spec "(case-lambda " 13 #\[)
(build-open-bracket-spec "(let ([]" 8 #\[)
(build-open-bracket-spec "(let ({}" 8 #\{)
(build-open-bracket-spec "()" 2 #\()