From 8cb5cda46cf3aef847ae3926dc53a5e5f87fe261 Mon Sep 17 00:00:00 2001
From: Joel Martin <github@martintribe.org>
Date: Wed, 16 Apr 2014 23:57:50 -0500
Subject: All: move some fns to core. Major cleanup.

- Don't import/require core until step4.
- Define cond/or macros from step8
---
 php/core.php | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'php/core.php')

diff --git a/php/core.php b/php/core.php
index 16d34f8..39a22ac 100644
--- a/php/core.php
+++ b/php/core.php
@@ -1,6 +1,8 @@
 <?php
 
 require_once 'types.php';
+require_once 'readline.php';
+require_once 'reader.php';
 require_once 'printer.php';
 
 // Error/Exception functions
@@ -169,11 +171,15 @@ $core_ns = array(
     'false?'=> function ($a) { return _false_Q($a); },
     'symbol'=> function () { return call_user_func_array('_symbol', func_get_args()); },
     'symbol?'=> function ($a) { return _symbol_Q($a); },
+
     'string?'=> function ($a) { return _string_Q($a); },
     'pr-str'=> function () { return call_user_func_array('pr_str', func_get_args()); },
     'str'=>    function () { return call_user_func_array('str', func_get_args()); },
     'prn'=>    function () { return call_user_func_array('prn', func_get_args()); },
     'println'=>function () { return call_user_func_array('println', func_get_args()); },
+    'readline'=>function ($a) { return mal_readline($a); },
+    'read-string'=>function ($a) { return read_str($a); },
+    'slurp'=>  function ($a) { return file_get_contents($a); },
     '<'=>      function ($a, $b) { return $a < $b; },
     '<='=>     function ($a, $b) { return $a <= $b; },
     '>'=>      function ($a, $b) { return $a > $b; },
-- 
cgit v1.2.3