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

matrix printfs removed

Browse Source 
svn: r8001
This commit is contained in:
Matthias Felleisen 2007-12-13 23:11:23 +00:00
parent a375882307
commit cb6bb515aa
2 changed files with 1502 additions and 82 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1582
collects/htdp/Test/matrix-client.ss
View File

File diff suppressed because it is too large Load Diff

2
collects/htdp/matrix-unit.ss
View File

@ -236,7 +236,7 @@
(define (check-matrix tag M* i j) (define (check-matrix tag M* i j)
(define M (cond (define M (cond
[(matrix? M*) M*] [(matrix? M*) M*]
[(visible? M*) (printf "dereferencing ... \n") (visible-matrix M*)] [(visible? M*) (visible-matrix M*)]
[else (error 'check-matrix "something is wrong: ~e ~e~e\n" [else (error 'check-matrix "something is wrong: ~e ~e~e\n"
M* (visible? M*) (send M* get-M))])) M* (visible? M*) (send M* get-M))]))
(check-arg tag (matrix? M) 'matrix "first" M) (check-arg tag (matrix? M) 'matrix "first" M)