sjs/sectorlisp
1
0
Fork 0
mirror of https://github.com/samsonjs/sectorlisp.git synced 2026-03-29 09:45:46 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove more non-essential code

Browse source
This commit is contained in:
Justine Tunney 2021-10-26 19:53:17 -07:00
parent 4233210a86
commit e09cdf6619
3 changed files with 2 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
bestline.c
View file

@ -51,7 +51,6 @@
│ │
│ SHORTCUTS │
│ │
│ │
│ CTRL-E END │
│ CTRL-A START │
│ CTRL-B BACK │
@ -78,6 +77,7 @@
│ ALT-D KILL WORD FORWARDS │
│ CTRL-Y YANK │
│ ALT-Y ROTATE KILL RING AND YANK AGAIN │
│ ALT-\ SQUEEZE ADJACENT WHITESPACE │
│ CTRL-T TRANSPOSE │
│ ALT-T TRANSPOSE WORD │
│ ALT-U UPPERCASE WORD │
@ -1762,8 +1762,6 @@ static size_t GetMonospaceWidth(const char *p, size_t n, char *out_haswides) {
case '_':
t = kStr;
break;
case '\\':
goto Whoopsie;
default:
t = kAscii;
break;

2
lisp.c
View file

@ -404,8 +404,6 @@ static int Evaluate(int e, int a) {
return Cadr(e);
if (ax == ATOM_COND)
return Evcon(Cdr(e), a);
if (ax == ATOM_LAMBDA)
return e;
}
return Apply(ax, Evlis(Cdr(e), a), a);
}

2
lisp.lisp
View file

@ -74,6 +74,7 @@ NIL
;; REQUIRES CONS CAR CDR QUOTE ATOM EQ LAMBDA COND
;; SIMPLIFIED BUG FIXED VERSION OF JOHN MCCARTHY PAPER
;; NOTE: ((EQ (CAR E) NIL) (QUOTE *UNDEFINED)) CAN HELP
;; NOTE: ((EQ (CAR E) (QUOTE LAMBDA)) E) IS NICE
((LAMBDA (ASSOC EVCON BIND APPEND EVAL)
(EVAL (QUOTE ((LAMBDA (FF X) (FF X))
(QUOTE (LAMBDA (X)
@ -109,7 +110,6 @@ NIL
((EQ (CAR E) (QUOTE CONS)) (CONS (EVAL (CAR (CDR E)) A)
(EVAL (CAR (CDR (CDR E))) A)))
((EQ (CAR E) (QUOTE COND)) (EVCON (CDR E) A))
((EQ (CAR E) (QUOTE LAMBDA)) E)
((QUOTE T) (EVAL (CONS (EVAL (CAR E) A) (CDR E)) A))))
((EQ (CAR (CAR E)) (QUOTE LAMBDA))
(EVAL (CAR (CDR (CDR (CAR E))))