yap-6.3/Logtalk/examples/expansion/SCRIPT.txt

================================================================
Logtalk - Open source object-oriented logic programming language
Release 2.30.7

Copyright (c) 1998-2007 Paulo Moura.  All Rights Reserved.
================================================================


% start by loading the example:

| ?- logtalk_load(expansion(loader)).
...


% simple tests of the expand_term/2 built-in method:

| ?- exp_public::expand_term(8, Term).

Term = eight 
yes

| ?- exp_protected::expand_term(8, Term).

Term = 8 
yes

| ?- exp_private::expand_term(8, Term).

Term = 8 
yes

| ?- desc_public::test(8, Term).

Term = eight 
yes

| ?- desc_protected::test(8, Term).

Term = eight 
yes

| ?- desc_private::test(8, Term).

Term = 8 
yes