check-arg-number assertion *** TeXmacs-1.0.1.4-src/TeXmacs-1.0.1.4/progs/keywords/misc/debug.scm --- TeXmacs-1.0.1.4-src/TeXmacs-1.0.1.4/progs/keywords/misc/debug.scm *************** (define (tm-display-error . l) *** 62,71 **** --- 62,78 ---- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define (check-arg-type pred arg caller) + ;; WARNING: guile-1.3.4 requires %S instead of ~S (if (pred arg) arg (scm-error 'wrong-type-arg caller "Wrong type argument: ~S" (list arg) '()))) + (define (check-arg-number pred num caller) + ;; WARNING: guile-1.3.4 requires instead of ~A + (if (pred num) arg + (scm-error 'wrong-number-of-args caller + "Wrong number of arguments: ~A" (list num) '()))) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Safe evaluation ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;