gpgscm: Make exception handling more robust.
authorJustus Winter <justus@g10code.com>
Mon, 19 Dec 2016 14:25:52 +0000 (15:25 +0100)
committerJustus Winter <justus@g10code.com>
Mon, 19 Dec 2016 14:42:35 +0000 (15:42 +0100)
* tests/gpgscm/init.scm (throw'): Check that args is a list.

Signed-off-by: Justus Winter <justus@g10code.com>
tests/gpgscm/init.scm

index 04f088c..106afd5 100644 (file)
   (cond
    ((more-handlers?)
     ((pop-handler) message args history))
-   ((and args (= 2 (length args)) (equal? *interpreter-exit* (car args)))
+   ((and args (list? args) (= 2 (length args))
+        (equal? *interpreter-exit* (car args)))
     (*run-atexit-handlers*)
     (quit (cadr args)))
    (else