-
Notifications
You must be signed in to change notification settings - Fork 1
/
util.bgl
26 lines (23 loc) · 1.03 KB
/
util.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
;; ---------------------------------------------------------------------- ;;
;; FICHIER : util.bgl ;;
;; DATE DE CREATION : Mon May 29 09:58:23 1995 ;;
;; DERNIERE MODIFICATION : Mon May 29 09:58:25 1995 ;;
;; ---------------------------------------------------------------------- ;;
;; Copyright (c) 1995 Dominique Boucher ;;
;; ---------------------------------------------------------------------- ;;
;; Module declaration for Bigloo ;;
;; ---------------------------------------------------------------------- ;;
(module utils
(include "prologue.bigloo")
(include "structs.scm")
(export $the-empty-list
$the-false-value
$the-true-value
$non-initialized
$unbound
(insert-in-condition-clause! x c)
(sinsert elem lst)
$all-keys-node
(binop-series->expr lst)
(filter pred l)))
;; --- Fin du module `utils' -------------------------------------------- ;;