From 557bd01043be33f735bd195eb650de4fc85a24b5 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Tue, 14 Oct 2008 16:34:14 +0000 Subject: [PATCH] add args to error svn: r12036 original commit: e802682c4df62cdb320b931c09d89db8bbb3d15a --- collects/tests/typed-scheme/succeed/little-schemer.ss | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/collects/tests/typed-scheme/succeed/little-schemer.ss b/collects/tests/typed-scheme/succeed/little-schemer.ss index 24f453e7..95b19e8b 100644 --- a/collects/tests/typed-scheme/succeed/little-schemer.ss +++ b/collects/tests/typed-scheme/succeed/little-schemer.ss @@ -406,7 +406,7 @@ [else (build 'primitive e)])) (define: (initial-table [name : atom]) : atom - (error)) + (error 'fail)) (define: (*identifier [e : atom] [tbl : table]) : SExp (lookup-in-table e tbl initial-table)) @@ -420,10 +420,10 @@ [(#t #f cons car cdr null? eq? atom? zero? add1 sub1 number?) *const] [else *identifier])])) -(define: (*quote [a : atom] [t : table]) : SExp (error)) -(define: (*lambda [a : atom] [t : table]) : SExp (error)) -(define: (*cond [a : atom] [t : table]) : SExp (error)) -(define: (*application [a : atom] [t : table]) : SExp (error)) +(define: (*quote [a : atom] [t : table]) : SExp (error 'fail)) +(define: (*lambda [a : atom] [t : table]) : SExp (error 'fail)) +(define: (*cond [a : atom] [t : table]) : SExp (error 'fail)) +(define: (*application [a : atom] [t : table]) : SExp (error 'fail)) (define: (list->action [e : (list-of SExp)]) : action (cond*