15 lines
277 B
Plaintext
15 lines
277 B
Plaintext
general {
|
|
funcon-term:
|
|
initialise-generating
|
|
give(fresh-atom,
|
|
print is-equal(use-atom-not-in{given}, use-atom-not-in{given}))
|
|
;
|
|
}
|
|
|
|
tests {
|
|
result-term: null-value;
|
|
// standard-out: [ false ];
|
|
//Also possible:
|
|
standard-out: [ true ];
|
|
}
|