gc-call.scm 452 Bytes
Newer Older
1 2 3
(define-module (logic guile-log guile-prolog gc-call)
  #:use-module (logic guile-log)
  #:use-module (logic guile-log prolog goal-functors)
4
  #:export (gc_call gc_scm_call gc_list_call))
5 6 7 8


(<define> (gc_call Var Code)
  (<gc-call> Var '() (<lambda> () (goal-eval Code))))
9 10 11 12 13 14 15

(<define> (gc_scm_call Var Code)
  (<gc-scm-call> Var (<lambda> () (goal-eval Code))))

(<define> (gc_list_call Var Code)
  (<gc-list-call> Var (<lambda> () (goal-eval Code))))