github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-05-02 22:43:33 +00:00
Code Issues Projects Releases Wiki Activity

Have "a" (GETTOPVAL) and "d" (GETDEFCELL) commands announce the atom index

Browse Source 
of the atom they are working on.

	modified:   src/uraid.c
This commit is contained in:
Nick Briggs
2017-06-14 17:58:20 -07:00
parent ef3fbc29fc
commit e360a64c42
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/uraid.c
View File

@@ -464,6 +464,8 @@ LispPTR uraid_commands() {
if ((index = parse_atomstring(URaid_arg1)) == 0xffffffff) { if ((index = parse_atomstring(URaid_arg1)) == 0xffffffff) {
printf("No such atom.\n"); printf("No such atom.\n");
return (T); return (T);
} else {
printf("Atom: %s index %d\n", URaid_arg1, index);
} }
print(*((LispPTR *)GetVALCELL68k(index))); print(*((LispPTR *)GetVALCELL68k(index)));
break; break;
@@ -475,6 +477,8 @@ LispPTR uraid_commands() {
if ((index = parse_atomstring(URaid_arg1)) == 0xffffffff) { if ((index = parse_atomstring(URaid_arg1)) == 0xffffffff) {
printf("No such atom.\n"); printf("No such atom.\n");
return (T); return (T);
} else {
printf("Atom: %s index %d\n", URaid_arg1, index);
} }
defcell68k = (DefCell *)GetDEFCELL68k(index); defcell68k = (DefCell *)GetDEFCELL68k(index);
if (defcell68k->ccodep) { if (defcell68k->ccodep) {