165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
|
)
;; ;; ulex parameters
;; (work-method 'direct)
;; (return-method 'direct)
;; ulex parameters
(work-method 'mailbox)
(return-method 'mailbox)
;; fake out readline usage of toplevel-command
(define (toplevel-command . a) #f)
(define *didsomething* #f)
(define *db* #f) ;; this is only for the repl, do not use in general!!!!
;; (include "common_records.scm")
|
|
|
>
>
|
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
|
)
;; ;; ulex parameters
;; (work-method 'direct)
;; (return-method 'direct)
;; ulex parameters
;; (work-method 'mailbox)
;; (return-method 'mailbox)
(my-with-lock common:with-simple-file-lock)
;; fake out readline usage of toplevel-command
(define (toplevel-command . a) #f)
(define *didsomething* #f)
(define *db* #f) ;; this is only for the repl, do not use in general!!!!
;; (include "common_records.scm")
|