streamlined q-form related calls
This commit is contained in:
@@ -69,13 +69,13 @@ class Clyx:
|
||||
'loop': lambda: (lambda body, cond: self._exec_loop(cond, body))(self._stack.pop(), self._stack.pop()),
|
||||
'hsargs': lambda: self._stack.append(list(sys.argv)),
|
||||
'hsexit': lambda: sys.exit(int(self._stack.pop())),
|
||||
'l2s': lambda: self._stack.append("".join(chr(int(x)) for x in self._stack.pop())),
|
||||
'q2s': lambda: self._stack.append("".join(chr(int(x)) for x in self._stack.pop())),
|
||||
'hseval': lambda: self._stack.append(eval(self._stack.pop())),
|
||||
'chr': lambda: self._stack.append(chr(int(self._stack.pop()))),
|
||||
'sin': lambda: self._stack.append(math.sin(float(self._stack.pop()))), 'cos': lambda: self._stack.append(math.cos(float(self._stack.pop()))), 'atan': lambda: self._stack.append(math.atan(float(self._stack.pop()))),
|
||||
'exp': lambda: self._stack.append(math.exp(float(self._stack.pop()))), 'log': lambda: self._stack.append(math.log(float(self._stack.pop())))
|
||||
}
|
||||
self.run('"::" [ next defw ] defw :: readf [ "r" fopen dup read swap close ] :: src [ readf l2s i ]')
|
||||
self.run('"::" [ next defw ] defw :: readf [ "r" fopen dup read swap close ] :: src [ readf q2s i ]')
|
||||
self.run(f'"{libpath}" src' if libfname is None else (libfname + ' src'))
|
||||
|
||||
def _cmd_write(self):
|
||||
|
||||
Reference in New Issue
Block a user