01: /**
02: * Copyright (c) 2007, all rights reserved Hewett Research, LLC
03: *
04: * User: hewett
05: * Date: Apr 25, 2007
06: * Time: 9:42:05 PM
07: *
08: */package org.jatha.compile;
09:
10: import org.jatha.Jatha;
11: import org.jatha.machine.SECDMachine;
12:
13: public class ReadFromStringPrimitive extends LispPrimitive {
14: public ReadFromStringPrimitive(Jatha lisp) {
15: super (lisp, "READ-FROM-STRING", 1);
16: }
17:
18: public void Execute(SECDMachine machine) {
19: machine.S.push(machine.S.pop().readFromString());
20: machine.C.pop();
21: }
22: }
|