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

correct and load numbervars

Browse Source
This commit is contained in:
Mark Thom
2018-09-18 17:20:34 -03:00
parent d0ac258c77
commit 4d6590c6aa
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/prolog/lib/numbervars.pl
View File

@@ -10,8 +10,6 @@ numbervars(Term, NewTerm, N) :-
numbervars(Term, NewTerm, N1, N2) :- numbervars(Term, NewTerm, N1, N2) :-
var(Term), !, NewTerm = '$VAR'(N1), N2 is N1 + 1. var(Term), !, NewTerm = '$VAR'(N1), N2 is N1 + 1.
numbervars([Arg | Args], NewTerms, N1, N2) :- !,
fold_numbervars([Arg | Args], NewTerms, N1, N2).
numbervars(Term, NewTerm, N1, N2) :- compound(Term), !, numbervars(Term, NewTerm, N1, N2) :- compound(Term), !,
Term =.. [Name | Args], Term =.. [Name | Args],
NewTerm =.. [Name | NewArgs], NewTerm =.. [Name | NewArgs],

2
src/prolog/machine/mod.rs
View File

@@ -115,6 +115,7 @@ impl<'a> SubModuleUser for MachineCodeIndices<'a> {
static LISTS: &str = include_str!("../lib/lists.pl"); static LISTS: &str = include_str!("../lib/lists.pl");
static CONTROL: &str = include_str!("../lib/control.pl"); static CONTROL: &str = include_str!("../lib/control.pl");
static QUEUES: &str = include_str!("../lib/queues.pl"); static QUEUES: &str = include_str!("../lib/queues.pl");
static NUMBERVARS: &str = include_str!("../lib/numbervars.pl");
impl Machine { impl Machine {
pub fn new() -> Self { pub fn new() -> Self {
@@ -137,6 +138,7 @@ impl Machine {
compile_user_module(&mut wam, LISTS.as_bytes()); compile_user_module(&mut wam, LISTS.as_bytes());
compile_user_module(&mut wam, CONTROL.as_bytes()); compile_user_module(&mut wam, CONTROL.as_bytes());
compile_user_module(&mut wam, QUEUES.as_bytes()); compile_user_module(&mut wam, QUEUES.as_bytes());
compile_user_module(&mut wam, NUMBERVARS.as_bytes());
wam wam
} }