remove test line

svn: r1519
This commit is contained in:
Eli Barzilay 2005-12-04 19:11:11 +00:00
parent f4d02f77b0
commit e1cf51dea0

View File

@ -177,7 +177,6 @@ exit 1
(define (check-version)
(printf "Checking version...") (flush-output)
(let ([r ((dynamic-require '(lib "check.ss" "version") 'check-version))])
(set! r '(newer "100"))
(if (eq? 'ok r)
(printf " ok.\n")
(case (and (pair? r) (car r))