From: Markus Triska <triska@metalevel.at>
Date: Wed, 8 Mar 2023 22:35:11 +0000 (+0100)
Subject: use actual toplevel answers
X-Git-Tag: v0.9.2~169^2
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=56bd596af3c33123e8dccf6d16075e92503d0005;p=scryer-prolog.git

use actual toplevel answers
---

diff --git a/src/lib/lists.pl b/src/lib/lists.pl
index a037fd85..792c2be2 100644
--- a/src/lib/lists.pl
+++ b/src/lib/lists.pl
@@ -72,7 +72,7 @@ resource_error(Resource, Context) :-
 % ?- length("abc", N).
 %    N = 3.
 % ?- length(Xs, 3).
-%    Xs = [_A, _B, _C].
+%    Xs = [_A,_B,_C].
 % ```
 
 length(Xs0, N) :-
@@ -131,7 +131,8 @@ member(X, [_|Xs]) :- member(X, Xs).
 %
 % ```
 % ?- select(c, "abcd", X).
-%    X = "abd".
+%    X = "abd"
+% ;  false.
 % ```
 select(X, [X|Xs], Xs).
 select(X, [Y|Xs], [Y|Ys]) :- select(X, Xs, Ys).
@@ -142,7 +143,7 @@ select(X, [Y|Xs], [Y|Ys]) :- select(X, Xs, Ys).
 %
 % ```
 % ?- append([[1, 2], [3]], Xs).
-%    Xs = [1, 2, 3].
+%    Xs = [1,2,3].
 % ```
 append([], []).
 append([L0|Ls0], Ls) :-
@@ -155,7 +156,7 @@ append([L0|Ls0], Ls) :-
 %
 % ```
 % ?- append([1,2,3], [4,5,6], Xs).
-%    Xs = [1, 2, 3, 4, 5, 6].
+%    Xs = [1,2,3,4,5,6].
 % ```
 append([], R, R).
 append([X|L], R, [X|S]) :- append(L, R, S).