/
error.bgl
32 lines (29 loc) · 1.23 KB
/
error.bgl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
;; ---------------------------------------------------------------------- ;;
;; FICHIER : error.bgl ;;
;; DATE DE CREATION : Mon May 29 09:38:35 1995 ;;
;; DERNIERE MODIFICATION : Mon May 29 09:38:48 1995 ;;
;; ---------------------------------------------------------------------- ;;
;; Copyright (c) 1995 Dominique Boucher ;;
;; ---------------------------------------------------------------------- ;;
;; Module declaration for Bigloo ;;
;; ---------------------------------------------------------------------- ;;
(module error
(include "prologue.bigloo")
(include "structs.scm")
(import utils class env generic global)
(export (error:init)
(error:get-top-of-stack)
(error:establish-handler tp tst args hdl)
(error:pop-handlers oldp)
(error:abort)
(error:signal cnd)
(error:check-type val type)
(catch-error thunk)
(catch-quit-cont thunk)
(call-quit-cont)
(dylan:error str . l)
(dylan:warning str . l)
(display-format-string str . l)
(display-obj obj)
(pretty-obj obj)))
;; --- Fin du module `error' -------------------------------------------- ;;