github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-15 07:54:13 +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
Show Stats 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) {
printf("No such atom.\n");
return (T);
} else {
printf("Atom: %s index %d\n", URaid_arg1, index);
}
print(*((LispPTR *)GetVALCELL68k(index)));
break;
@ -475,6 +477,8 @@ LispPTR uraid_commands() {
if ((index = parse_atomstring(URaid_arg1)) == 0xffffffff) {
printf("No such atom.\n");
return (T);
} else {
printf("Atom: %s index %d\n", URaid_arg1, index);
}
defcell68k = (DefCell *)GetDEFCELL68k(index);
if (defcell68k->ccodep) {