#!/usr/local/bin/fools -s

;; load Dorai Sitaram's Prolog-in-Scheme embedding
;; (available via anonymous ftp from titan.rice.edu)

(load "/usr/local/lib/fools/init.scm")
(load "/usr/local/lib/fools/extra.scm")
(require 'macros)
(require 'pp)

(pp:printer-add 'letref pp:print-sform)
(pp:printer-add 'recur pp:print-let)
(pp:printer-add 'call/cfc pp:print-sform0)

(define make-temp-symbol string->uninterned-symbol)
(define prompt-read (lambda (p) (display p) (read)))
(define-macro recur (macro 'let))
(define-macro (begin0 . exprs) `(begin1 ,@exprs))

(define (remq! item lst) (filter (lambda (x) (not (eq? x item))) lst))
(define cull! filter)
(define reverse! reverse)
(define expand macro-expand)

(load "~jonathan/src/schelog/schelog.ss")
(load "~jonathan/src/schelog/bagof.ss")
