rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add support for embedded calls (syntax)

Browse Source
This commit is contained in:
Mark Thom
2017-06-25 15:39:00 -06:00
parent b349ac8bf9
commit 8a99b6d3bc
3 changed files with 1053 additions and 755 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/main.rs
View File

@@ -638,6 +638,15 @@ mod tests {
assert_eq!(submit(&mut wam, "?- call(david_lynch, X)."), true);
assert_eq!(submit(&mut wam, "?- call(david_lynch, kyle(Film))."), true);
assert_eq!(submit(&mut wam, "?- call(david_lynch, kyle(Film), _)."), false);
submit(&mut wam, "call_mult(P, X) :- call(call(P), X).");
assert_eq!(submit(&mut wam, "?- call_mult(p(X), Y)."), true);
assert_eq!(submit(&mut wam, "?- call_mult(p(X), X)."), true);
assert_eq!(submit(&mut wam, "?- call_mult(p(one), X)."), true);
assert_eq!(submit(&mut wam, "?- call_mult(p(X), one)."), true);
assert_eq!(submit(&mut wam, "?- call_mult(p(two), one)."), false);
assert_eq!(submit(&mut wam, "?- call_mult(p(two), two)."), true);
}
}