18 lines
379 B
Plaintext
18 lines
379 B
Plaintext
general {
|
|
funcon-term:
|
|
initialise-giving initialise-generating finalise-failing
|
|
sequential (
|
|
print object-identity object(fresh-atom,"A",map()),
|
|
print object-identity object(fresh-atom,"B",map(),
|
|
object(fresh-atom,"C",map()))
|
|
)
|
|
;
|
|
}
|
|
|
|
tests {
|
|
result-term: null-value;
|
|
standard-out: [
|
|
atom("@1"), atom("@2")
|
|
];
|
|
}
|