change error msg

8 years ago · 42d3eaac68
parent 565eb81179
commit 42d3eaac68
1 changed files with 2 additions and 1 deletions
--- a/beautiful-racket-demo/basic-demo-3/expr.rkt
+++ b/beautiful-racket-demo/basic-demo-3/expr.rkt
@ -35,4 +35,5 @@
              (if result 1 0)
              result))
        (raise-line-error
-         (format "undefined function: ~a" 'FUNC-ID))))
+         (format "expected ~a to be a function, got ~v"
+                 'FUNC-ID FUNC-ID))))