=> faulting fixed

parent 01ea4838
......@@ -30,6 +30,11 @@ Prerequisits
A 64 bit system
This is a draft for guile-2.0.6 and later and works for linux.
You need the dev package for bdw-gc and e.g. libgc-dev and all guile's
dependancies for compilation.
You need to install guile fibers package see https://github.com/wingo/fibers
You need to have guile-syntax-parse installed into the system
http://gitorious.org/guile-syntax-parse/guile-syntax-parse
......@@ -38,6 +43,9 @@ For fibers you need to have wingo's fibers library
For correct garbage collection , engines and fibers you need
https://gitlab.com/bdw-gc-logical-mod/bdw-gc-logical-mod
use the latest version which can found in the head directory.
furthermore check out 'configure --help' to find out how
to configure in this feature (Experimental)
If you want to hack the prolog VM (it is written in compiled scheme) you need
https://gitlab.com/clambda/clambda
......
(define-module (logic guile-log fiber)
#:use-module (fibers)
#:use-module (fibers internal)
#:use-module (fibers scheduler)
#:use-module (fibers channels)
#:use-module (logic guile-log dynamic-features)
#:use-module (logic guile-log)
......@@ -13,7 +13,7 @@
(case-lambda
(() (serialize-scheduler scheduler))
((state)
(if ((@@ (fibers internal) scheduler?) state)
(if ((@@ (fibers scheduler) scheduler?) state)
(set! scheduler state)
(try-update-scheduler scheduler state))))))
......
......@@ -16,7 +16,11 @@
#:use-module ((logic guile-log prolog util)
#:select ((member . pr-member) append))
#:use-module (logic guile-log prolog directives)
#:use-module (logic guile-log prolog goal-transformers)
#:use-module ((logic guile-log prolog goal-transformers)
#:renamer (lambda (x)
(if (eq? x '=>)
'xxx
x)))
#:use-module (logic guile-log prolog error)
#:use-module (logic guile-log prolog char)
#:use-module (logic guile-log prolog names)
......
......@@ -20,8 +20,10 @@
#include <stdio.h>
#include "../../../config.h"
#include "unify.h"
#include <gc/gc_mark.h>
#include <gc/gc.h>
#include "libguile/smob.h"
#define VECTOR_HEADER_SIZE 2
......
#include <gc.h>
#include <gc/gc_mark.h>
/*
We need a special variable
*/
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment