engines work

parent 8fccf112
...@@ -100,7 +100,6 @@ PSSOURCES = \ ...@@ -100,7 +100,6 @@ PSSOURCES = \
logic/guile-log/iso-prolog.scm \ logic/guile-log/iso-prolog.scm \
logic/guile-log/prolog/goal-expand.scm \ logic/guile-log/prolog/goal-expand.scm \
logic/guile-log/guile-prolog/set.scm \ logic/guile-log/guile-prolog/set.scm \
logic/guile-log/guile-prolog/engine.scm \
logic/guile-log/guile-prolog/delay.scm \ logic/guile-log/guile-prolog/delay.scm \
logic/guile-log/guile-prolog/foldarg.scm \ logic/guile-log/guile-prolog/foldarg.scm \
logic/guile-log/guile-prolog/ops.scm \ logic/guile-log/guile-prolog/ops.scm \
...@@ -115,6 +114,7 @@ PSSOURCES = \ ...@@ -115,6 +114,7 @@ PSSOURCES = \
logic/guile-log/guile-prolog/canon.scm \ logic/guile-log/guile-prolog/canon.scm \
logic/guile-log/guile-prolog/project.scm \ logic/guile-log/guile-prolog/project.scm \
logic/guile-log/guile-prolog/interpreter.scm \ logic/guile-log/guile-prolog/interpreter.scm \
logic/guile-log/guile-prolog/engine.scm \
logic/guile-log/guile-prolog/state.scm \ logic/guile-log/guile-prolog/state.scm \
logic/guile-log/guile-prolog/postpone.scm \ logic/guile-log/guile-prolog/postpone.scm \
logic/guile-log/guile-prolog/gc-call.scm \ logic/guile-log/guile-prolog/gc-call.scm \
...@@ -132,26 +132,26 @@ PSSOURCES = \ ...@@ -132,26 +132,26 @@ PSSOURCES = \
logic/guile-log/guile-prolog/vm/vm-unify.scm \ logic/guile-log/guile-prolog/vm/vm-unify.scm \
logic/guile-log/guile-prolog/vm/vm-goal.scm \ logic/guile-log/guile-prolog/vm/vm-goal.scm \
logic/guile-log/guile-prolog/vm-compiler.scm \ logic/guile-log/guile-prolog/vm-compiler.scm \
logic/guile-log/guile-prolog/vm/vm-var2.scm \
logic/guile-log/guile-prolog/vm/vm-scm2.scm \
logic/guile-log/guile-prolog/vm/vm-args2.scm \
logic/guile-log/guile-prolog/vm/vm-handle2.scm \
logic/guile-log/guile-prolog/vm/vm-disj2.scm \
logic/guile-log/guile-prolog/vm/vm-conj2.scm \
logic/guile-log/guile-prolog/vm/vm-imprint2.scm \
logic/guile-log/guile-prolog/vm/vm-unify2.scm \
logic/guile-log/guile-prolog/vm/vm-goal2.scm \
logic/guile-log/guile-prolog/vm-compiler2.scm \
logic/guile-log/examples/kanren/type-inference.scm \ logic/guile-log/examples/kanren/type-inference.scm \
logic/guile-log/imatch.scm \ logic/guile-log/imatch.scm \
prolog-user.scm \
language/prolog/install.scm \ language/prolog/install.scm \
language/prolog/spec.scm \ language/prolog/spec.scm \
language/prolog/modules/user.scm \ language/prolog/modules/user.scm \
language/prolog/modules/sandbox.pl \ language/prolog/modules/sandbox.pl \
language/prolog/modules/boot/expand.pl \ language/prolog/modules/boot/expand.pl \
language/prolog/modules/boot/dcg.pl \ language/prolog/modules/boot/dcg.pl \
language/prolog/modules/boot/if.pl language/prolog/modules/boot/if.pl \
prolog-user.scm
# logic/guile-log/guile-prolog/vm/vm-var2.scm \
# logic/guile-log/guile-prolog/vm/vm-scm2.scm \
# logic/guile-log/guile-prolog/vm/vm-args2.scm \
# logic/guile-log/guile-prolog/vm/vm-handle2.scm \
# logic/guile-log/guile-prolog/vm/vm-disj2.scm \
# logic/guile-log/guile-prolog/vm/vm-conj2.scm \
# logic/guile-log/guile-prolog/vm/vm-imprint2.scm \
# logic/guile-log/guile-prolog/vm/vm-unify2.scm \
# logic/guile-log/guile-prolog/vm/vm-goal2.scm \
# logic/guile-log/guile-prolog/vm-compiler2.scm \
# language/prolog/modules/swi/term_macro.pl \ # language/prolog/modules/swi/term_macro.pl \
# language/prolog/modules/library/error.pl \ # language/prolog/modules/library/error.pl \
# language/prolog/modules/library/vhash.scm \ # language/prolog/modules/library/vhash.scm \
......
...@@ -405,7 +405,7 @@ before. This works very much like a fluid ...@@ -405,7 +405,7 @@ before. This works very much like a fluid
(rd (mk api e h ref (dotr)))) (rd (mk api e h ref (dotr))))
(let ((wind (gp-windlevel-ref s))) (let ((wind (gp-windlevel-ref s)))
(gp-undo-safe-variable-lguard (gp-undo-safe-variable-lguard
rd rd
(gp-rebased-level-ref wind) (gp-rebased-level-ref wind)
s) s)
......
...@@ -40,7 +40,7 @@ ...@@ -40,7 +40,7 @@
(<recur> lp ((l l)) (<recur> lp ((l l))
(if (pair? l) (if (pair? l)
(<and> (<and>
(add-dynamic-function-dynamics (car l)) (add-dynamic-function-dynamics (<lookup> (car l)))
(lp (cdr l))) (lp (cdr l)))
<cc>))) <cc>)))
...@@ -51,7 +51,7 @@ ...@@ -51,7 +51,7 @@
(<recur> lp ((h h)) (<recur> lp ((h h))
(if (pair? h) (if (pair? h)
(<and> (<and>
(backtrack-dynamic-object (car h) fail-) (backtrack-dynamic-object (<lookup> (car h)) fail-)
(lp (cdr h))) (lp (cdr h)))
<cc>)))) <cc>))))
...@@ -66,9 +66,9 @@ ...@@ -66,9 +66,9 @@
(define a_b (define a_b
(<case-lambda> (<case-lambda>
((h code) ((h code)
(a-b h (<lambda> () (goal-eval code)) fail-)) (a-b (<lookup> h) (<lambda> () (goal-eval code)) fail-))
((h . l) ((h . l)
(a-b h (<lambda> () (<apply> a_b l)) fail-))))) (a-b (<lookup> h) (<lambda> () (<apply> a_b l)) fail-)))))
(mk-with with_fluid_guard_dynamic_object (mk-with with_fluid_guard_dynamic_object
with-fluid-guard-dynamic-object) with-fluid-guard-dynamic-object)
......
(define-module (logic guile-log guile-prolog engine) (define-module (logic guile-log guile-prolog engine)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (logic guile-log run)
#:use-module (logic guile-log) #:use-module (logic guile-log)
#:use-module (logic guile-log guile-prolog dynamic-features) #:use-module (logic guile-log guile-prolog dynamic-features)
#:use-module (logic guile-log guile-prolog interpreter)
#:use-module (logic guile-log dynamic-features) #:use-module (logic guile-log dynamic-features)
#:use-module (logic guile-log umatch) #:use-module (logic guile-log umatch)
#:use-module (logic guile-log code-load) #:use-module (logic guile-log code-load)
...@@ -43,8 +45,27 @@ ...@@ -43,8 +45,27 @@
((#:throw e) ((#:throw e)
(set! engine #f) (set! engine #f)
state) state)
(_ (x
state)))) (if (eq? x 'stalled)
(begin
(set! state
(list #:stalled
(let ((e engine)
(g guards)
(p path))
(lambda ()
(set! engine e)
(set! guards g)
(set! path p)))
(cons
(@@ (logic
guile-log
guile-prolog
interpreter)
lold)
(get-continuation))))
state)
state)))))
(start-f (start-f
(lambda (s) (lambda (s)
...@@ -53,7 +74,7 @@ ...@@ -53,7 +74,7 @@
(set! start-f next) (set! start-f next)
(let ((s2 #f) (let ((s2 #f)
(pth #f) (pth #f)
(g (gp-store-engine-guards))) (g #f))
(dynamic-wind (dynamic-wind
(lambda () (lambda ()
(set! g (gp-store-engine-guards)) (set! g (gp-store-engine-guards))
...@@ -104,14 +125,22 @@ ...@@ -104,14 +125,22 @@
((#:throw e) ((#:throw e)
state) state)
((#:stalled thunk cc)
(thunk)
(<state-set!> (car cc))
(set! state (continue (cdr cc)))
(on-result))
((#:yield s0 p0 cc x) ((#:yield s0 p0 cc x)
(set! state (cc s0 p0)) (set! state (cc s0 p0))
state) (on-result))
((#:finish _ p x) ((#:finish _ p x)
(set! state (p)) (set! state (p))
state)) (on-result))
(x x))
#:exit)) #:exit))
(lambda () (lambda ()
...@@ -125,6 +154,10 @@ ...@@ -125,6 +154,10 @@
(#:post (apply variable-set! postbox term)) (#:post (apply variable-set! postbox term))
(#:finish (#:finish
(set! engine #f)) (set! engine #f))
(#:set-state
(set! state s))
(#:set-engine
(set! engine (cadr state)))
(#:exist (#:exist
(and engine (and engine
(match state (match state
...@@ -143,25 +176,40 @@ ...@@ -143,25 +176,40 @@
(<define> (engine_next engine term) (<define> (engine_next engine term)
(let* ((engine (<lookup> engine)) (let* ((engine (<lookup> engine))
(res (engine #:run S))) (res (engine #:run S)))
(<<match>> (#:mode -) (res) (<recur> lp ((res res))
(#:exit (<<match>> (#:mode - #:name engine_next) (res)
<fail>) (#:exit
<fail>)
((#:throw e) ((#:throw e)
(<var> (ee) (<var> (ee)
(copy_term e ee) (copy_term e ee)
(throw ee))) (throw ee)))
((#:finish s p x) ((#:finish s p x)
(<=> x term)) (<=> x term))
((#:yield s p cc x) ((#:yield s p cc x)
(<=> x term))))) (<=> x term))
((#:stalled _ _)
(<and>
(write "stalled engine > ")
(write engine)
(nl)
(let ((state res))
(stall)
(<code> (engine #:set-state state))
(lp (engine #:run S)))))
(x (<ret> x))))))
(<define> (engine_next_reified engine term) (<define> (engine_next_reified engine term)
(let* ((engine (<lookup> engine)) (let* ((engine (<lookup> engine))
(res (engine #:run S))) (res (engine #:run S)))
(<<match>> (#:mode -) (res) (<recur> lp ((res res))
(<<match>> (#:mode - #:name engine_next_reified) (res)
(#:exit (#:exit
(<=> "no" term)) (<=> "no" term))
...@@ -173,7 +221,20 @@ ...@@ -173,7 +221,20 @@
(<=> ,(vector (list "the" x)) term)) (<=> ,(vector (list "the" x)) term))
((#:yield s p cc x) ((#:yield s p cc x)
(<=> ,(vector (list "the" x)) term))))) (<=> ,(vector (list "the" x)) term))
((#:stalled _ _)
(<and>
(write "stalled engine > ")
(write engine)
(nl)
(let ((state res))
(stall)
(<code> (engine #:set-state state))
(lp (engine #:run S)))))
(x (<ret> x))))))
(define engine_post (define engine_post
(<case-lambda> (<case-lambda>
...@@ -231,6 +292,8 @@ ...@@ -231,6 +292,8 @@
parse_ops(L,Ops,Defaults). parse_ops(L,Ops,Defaults).
defaults([\"alias\"(noname),\"global\"(100),\"local\"(100),\"trail\"(100)]). defaults([\"alias\"(noname),\"global\"(100),\"local\"(100),\"trail\"(100)]).
engine_create(Template, Goal, Engine) :-
engine_create(Template, Goal, Engine, []).
engine_create(Template, Goal, Engine, Ops) :- engine_create(Template, Goal, Engine, Ops) :-
defaults(Defaults), defaults(Defaults),
parse_ops(Ops, [\"alias\"(Name),\"local\"(Size)], Defaults), parse_ops(Ops, [\"alias\"(Name),\"local\"(Size)], Defaults),
......
...@@ -37,6 +37,8 @@ ...@@ -37,6 +37,8 @@
stall thin_stall)) stall thin_stall))
(define-named-object -all- (make-fluid false)) (define-named-object -all- (make-fluid false))
(define *cc* (@@ (logic guile-log run) *cc*))
(<wrap> add-fluid-dynamics *cc*)
(<wrap> add-fluid-dynamics -all-) (<wrap> add-fluid-dynamics -all-)
(define-named-object *once* (gp-make-var #f)) (define-named-object *once* (gp-make-var #f))
(define-named-object -nsol- (make-fluid #f)) (define-named-object -nsol- (make-fluid #f))
...@@ -445,11 +447,28 @@ conversation_ :- ...@@ -445,11 +447,28 @@ conversation_ :-
conversation1(X,All) :- conversation1(X,All) :-
backtrack_dynamic_object(scm[*globals-map*]), backtrack_dynamic_object(scm[*globals-map*]),
fluid_guard_dynamic_object(scm[*var-attributator*],scm[-n-],scm[env], fluid_guard_dynamic_object(
scm[-nsol-], scm[-all-], scm[-mute?-],scm[*globals-map*]), scm[-n-],
state_guard_dynamic_object(scm[*var-attributator*], scm[-nsol-],
scm[-n-], scm[-nsol-], scm[-all-], scm[-mute?-],scm[env], scm[-all-],
scm[*user-data*],scm[*globals-map*]), scm[*globals-map*],
scm[*var-attributator*],
scm[env],
scm[*cc*],
scm[*user-data*],
scm[-mute?-]),
state_guard_dynamic_object(
scm[-n-],
scm[-nsol-],
scm[-all-],
scm[*globals-map*],
scm[*var-attributator*],
scm[env],
scm[*cc*],
scm[*user-data*],
scm[-mute?-]),
wrap_frame, wrap_frame,
'new-machine', 'new-machine',
conversation2(X,All). conversation2(X,All).
......
...@@ -1164,6 +1164,7 @@ For tabling, negations are tricky. the reason is that when a recursive applicati ...@@ -1164,6 +1164,7 @@ For tabling, negations are tricky. the reason is that when a recursive applicati
#;(log-code-macro '<dynwind>) #;(log-code-macro '<dynwind>)
;; This is code that allow to store a state ;; This is code that allow to store a state
(define (pkk x) (pk (vector-ref (car (cdr x)) 3)) x)
(define (<state-ref>) (define (<state-ref>)
(gp-store-state (fluid-ref *current-stack*))) (gp-store-state (fluid-ref *current-stack*)))
......
(define-module (logic guile-log parser) (define-module (logic guile-log parser)
#:use-module (logic guile-log parsing scanner) #:use-module (logic guile-log parsing scanner)
#:use-module (logic guile-log) #:use-module (logic guile-log)
#:use-module (logic guile-log vlist)
#:use-module (logic guile-log fstream) #:use-module (logic guile-log fstream)
#:use-module (logic guile-log umatch) #:use-module (logic guile-log umatch)
#:use-module ((ice-9 match) #:renamer (symbol-prefix-proc 'ice:)) #:use-module ((ice-9 match) #:renamer (symbol-prefix-proc 'ice:))
...@@ -63,14 +64,13 @@ ...@@ -63,14 +64,13 @@
(define *freeze-map* #f) (define *freeze-map* #f)
(define head #f)
(define clear-tokens (define clear-tokens
(let ((fl (make-fluid #f))) (let ((fl (make-fluid vlist-null)))
(set! *freeze-map* fl) (set! *freeze-map* fl)
(lambda () (lambda ()
(let ((ht (make-hash-table))) (let ((ht vlist-null))
(set! head ht)
(fluid-set! fl ht))))) (fluid-set! fl ht)))))
(clear-tokens) (clear-tokens)
(define make-file-reader (define make-file-reader
...@@ -440,8 +440,9 @@ ...@@ -440,8 +440,9 @@
(define (p-freeze tok f mk) (define (p-freeze tok f mk)
(<p-lambda> (c) (<p-lambda> (c)
(<and!> (<and!>
(<let> ((val (hash-ref (fluid-ref *freeze-map*) (<let> ((val
(cons* N M tok) #f)) (vhash-ref (fluid-ref *freeze-map*)
(cons* N M tok) #f))
(op P) (op P)
(os S) (os S)
(fr (<newframe>))) (fr (<newframe>)))
...@@ -455,14 +456,21 @@ ...@@ -455,14 +456,21 @@
(<unwind-tail> fr)) (<unwind-tail> fr))
(<with-fail> op (<with-fail> op
(<with-s> os (<with-s> os
(<code> (<code>
(hash-set! (fluid-ref *freeze-map*) (fluid-set!
(cons* n m tok) (list X XL N M XX ... val2))) *freeze-map*
(<p-cc> val2))))) (vhash-cons
(cons* n m tok)
(list X XL N M XX ... val2)
(fluid-ref *freeze-map*))))
(<p-cc> val2)))))
(<let> ((val2 'fail)) (<let> ((val2 'fail))
(<code> (<code>
(hash-set! (fluid-ref *freeze-map*) (fluid-set!
(cons* n m tok) val2)) *freeze-map*
(vhash-cons
(cons* n m tok) val2
(fluid-ref *freeze-map*))))
<fail>))) <fail>)))
(if (pair? val) (if (pair? val)
(<and> (<and>
......
...@@ -710,23 +710,26 @@ ...@@ -710,23 +710,26 @@
(.. (a) (l c2)) (.. (a) (l c2))
(<p-cc> #t)) (<p-cc> #t))
(<p-cc> #f))) (<p-cc> #f)))
(<pp> `(c2 ,c2))
(xx (c3) (xx (c3)
(<or> (<or>
(<and> (<and>
(.. (u) ((f-or expr (f-and ws (f-out #f))) cl)) (.. (u) ((f-or expr (f-and ws (f-out #f))) cl))
(if (match u (((_ _ "|" _) . l) #f) (else #t)) (if (match u (((_ _ "|" _) . l) #f) (else #t))
(<p-cc> u) (<p-cc> u)
(.. ((e c1) cl)))) (.. ((e c1) cl))))
(.. ((e c1) cl)))) (.. ((e c1) cl))
(<p-cc> (pk c2))))
(<pp> `(c3 ,c3))
(.. (c4) (r c3)) (.. (c4) (r c3))
(xx (c5) (if cl (xx (c5) (if cl
(.. (r c4)) (.. (r c4))
(<p-cc> #f))) (<p-cc> #f)))
(.. (u) (@tag c5)) (.. (u) (@tag c5))
(<p-cc> (<p-cc>
(wrap@ u (if (eq? c2 c3) (wrap@ u (pk (if (eq? c2 c3)
`(#:lam-term ,c1 () ,cl ,n ,m) `(#:lam-term ,c1 () ,cl ,n ,m)
`(#:lam-term ,c1 ,(<scm> c3) ,cl ,n ,m)))))) `(#:lam-term ,c1 ,(<scm> c3) ,cl ,n ,m)))))))
mk-id))) mk-id)))
(define set-tok (define set-tok
...@@ -747,7 +750,7 @@ ...@@ -747,7 +750,7 @@
(.. (c0) (ws c)) (.. (c0) (ws c))
(<let> ((n N) (m M)) (<let> ((n N) (m M))
(.. (c2) (l c0)) (.. (c2) (l c0))
(.. (c3) (expr c2)) (xx (c3) (<or> (.. (expr c2)) (<p-cc> '())))
(.. (c4) (r c3)) (.. (c4) (r c3))
(<p-cc> (<p-cc>
`(#:lam-term #f ,(<scm> c3) #f ,n ,m)))) `(#:lam-term #f ,(<scm> c3) #f ,n ,m))))
......
...@@ -8,6 +8,7 @@ ...@@ -8,6 +8,7 @@
#:export (<stall> <continue> <take> <run> <eval> <ask> #:export (<stall> <continue> <take> <run> <eval> <ask>
<cont-ref> <cont-set!> <cont-ref> <cont-set!>
*gp-var-tr* *kanren-assq* *gp-var-tr* *kanren-assq*
get-continuation continue
*init-tr*)) *init-tr*))
(define put_attr #f) (define put_attr #f)
(define *init-tr* (make-fluid (lambda () #f))) (define *init-tr* (make-fluid (lambda () #f)))
...@@ -36,29 +37,38 @@ ...@@ -36,29 +37,38 @@
(define bar build_attribut_representation) (define bar build_attribut_representation)
(define-named-object *cc* (gp-make-var #f)) (define-named-object *cc* (make-fluid #f))
(define (<stall> s p cc . l) (define (<stall> s p cc . l)
(gp-var-set *cc* (cons s (cons (cons p l) cc)) s) (fluid-set! *cc* (cons s (cons (cons p l) cc)))
(fluid-set! *current-stack* s) (fluid-set! *current-stack* s)
'stalled) 'stalled)
(define (<cont-ref>) (define (<cont-ref>)
(gp-var-ref *cc*)) (fluid-ref *cc*))
(define (<cont-set!> cc) (define (<cont-set!> cc)
(let ((s (car cc))) (let ((s (car cc)))
(gp-var-set *cc* cc s) (fluid-set! *cc* cc)
(fluid-set! *current-stack* s))) (fluid-set! *current-stack* s)))
(define (get-continuation)
(fluid-ref *cc*))
(define (continue *cc*)
(if (and *cc* (car *cc*))
(apply (cddr *cc*) (car *cc*) (cadr *cc*))
'cannot-continue))
(define (<take> n) (<continue> n)) (define (<take> n) (<continue> n))
(define <continue> (define <continue>
(case-lambda (case-lambda
(() (let ((*cc* (gp-var-ref *cc*))) (() (let ((*cc* (fluid-ref *cc*)))
(if (and *cc* (car *cc*)) (if (and *cc* (car *cc*))
(apply (cddr *cc*) (car *cc*) (cadr *cc*)) (apply (cddr *cc*) (car *cc*) (cadr *cc*))
'cannot-continue))) 'cannot-continue)))
((n) (let ((*cc* (gp-var-ref *cc*))) ((n) (let ((*cc* (fluid-ref *cc*)))
(if (and *cc* (integer? n) (not (car *cc*))) (if (and *cc* (integer? n) (not (car *cc*)))
((cdr *cc*) n) ((cdr *cc*) n)
'cannot-continue-and-take-n))))) 'cannot-continue-and-take-n)))))
...@@ -210,20 +220,20 @@ ...@@ -210,20 +220,20 @@
(lambda (s p) (lambda (s p)
(if (= n 0) (if (= n 0)
(let ((r (reverse ret))) (let ((r (reverse ret)))
(gp-var-set *cc* (cons #f (lambda (mm) (fluid-set! *cc* (cons #f (lambda (mm)
(set! n mm) (set! n mm)
(set! ret '()) (set! ret '())
(p))) s) (p))))
r) r)
(begin (begin
(set! n (- n 1)) (set! n (- n 1))
(set! ret (cons (tr (gp->scm v s) s #t) ret)) (set! ret (cons (tr (gp->scm v s) s #t) ret))
(if (= n 0) (if (= n 0)
(let ((r (reverse ret))) (let ((r (reverse ret)))
(gp-var-set *cc* (cons #f (lambda (mm) (fluid-set! *cc* (cons #f (lambda (mm)
(set! n mm) (set! n mm)
(set! ret '()) (set! ret '())
(p))) s) (p))))
r) r)
(p))))))))))) (p)))))))))))
...@@ -247,22 +257,20 @@ ...@@ -247,22 +257,20 @@
(lambda (s p) (lambda (s p)
(if (= n 0) (if (= n 0)
(let ((r (reverse ret))) (let ((r (reverse ret)))
(gp-var-set *cc* (cons #f (lambda (mm) (fluid-set! *cc* (cons #f (lambda (mm)
(set! n mm) (set! n mm)
(set! ret '()) (set! ret '())
(p))) (p))))
s)
r) r)
(begin (begin
(set! n (- n 1)) (set! n (- n 1))
(set! ret (cons (tr (list (gp->scm v s) ...) s #f) ret)) (set! ret (cons (tr (list (gp->scm v s) ...) s #f) ret))
(if (= n 0) (if (= n 0)
(let ((r (reverse ret))) (let ((r (reverse ret)))
(gp-var-set *cc* (cons #f (lambda (mm) (fluid-set! *cc* (cons #f (lambda (mm)
(set! n mm) (set! n mm)
(set! ret '()) (set! ret '())
(p))) (p))))
s)
r) r)
(p))))))))))))) (p)))))))))))))
......
...@@ -204,7 +204,7 @@ AUTOHEADER = ${SHELL} /home/stis/src/guile-log/build-aux/missing autoheader ...@@ -204,7 +204,7 @@ AUTOHEADER = ${SHELL} /home/stis/src/guile-log/build-aux/missing autoheader
AUTOMAKE = ${SHELL} /home/stis/src/guile-log/build-aux/missing automake-1.14 AUTOMAKE = ${SHELL} /home/stis/src/guile-log/build-aux/missing automake-1.14
AWK = gawk AWK = gawk
CC = gcc CC = gcc
CCDEPMODE = depmode=gcc3 CCDEPMODE = depmode=gcc3
CFLAGS = -g -O2 CFLAGS = -g -O2
CPP = gcc -E CPP = gcc -E
CPPFLAGS = CPPFLAGS =
......