simon/post-scarcity
1
0
Fork 0
Code Issues 4 Pull requests Projects Releases Packages Wiki Activity Actions

Just poking around and trying to remember where the problems are.

Browse source
This commit is contained in:
Simon Brooke 2023-04-08 10:36:59 +01:00
parent fae4a4d444
commit cbcced70b2
No known key found for this signature in database
GPG key ID: A7A4F18D1D4DF987
8 changed files with 240 additions and 218 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/ops/lispops.c
View file

@ -681,6 +681,8 @@ bool end_of_stringp( struct cons_pointer arg ) {
* returns a cell constructed from a and b. If a is of type string but its
* cdr is nill, and b is of type string, then returns a new string cell;
* otherwise returns a new cons cell.
*
* Thus: `(cons "a" "bcd") -> "abcd"`, but `(cons "ab" "cd") -> ("ab" . "cd")`
*
* * (cons a b)
*
@ -700,7 +702,6 @@ lisp_cons( struct stack_frame *frame, struct cons_pointer frame_pointer,
return NIL;
} else if ( stringp( car ) && stringp( cdr ) &&
end_of_stringp( c_cdr( car ) ) ) {
// \todo check that car is of length 1
result =
make_string( pointer2cell( car ).payload.string.character, cdr );
} else {