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

changed to scheme/base

Browse Source 
svn: r15670
This commit is contained in:
Robby Findler 2009-08-04 18:19:52 +00:00
parent e7fdc0887d
commit fbb31a1393
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/htdp/error.ss
View File

@ -1,7 +1,4 @@
#lang mzscheme #lang scheme/base
(require mzlib/etc
mzlib/list)
;; -------------------------------------------------------------------------- ;; --------------------------------------------------------------------------
(provide check-arg check-arity check-proc check-result check-list-list (provide check-arg check-arity check-proc check-result check-list-list
@ -85,7 +82,7 @@
[(8) "eighth"] [(8) "eighth"]
[(9) "ninth"] [(9) "ninth"]
[(10) "tenth"] [(10) "tenth"]
[_ (format "~ath") arg-posn])])) [else (format "~ath") arg-posn])]))
;; check-arity : sym num (list-of TST) -> void ;; check-arity : sym num (list-of TST) -> void
(define (check-arity name arg# args) (define (check-arity name arg# args)