New branch for exploring data storage and retreival.

4 years ago · a267389110
parent bb21d54da6
commit a267389110
1 changed files with 5 additions and 0 deletions
--- a/stockminder.scm
+++ b/stockminder.scm
@ -42,3 +42,8 @@ headers: '( ("x-rapidapi-host" . "apidojo-yahoo-finance-v1.p.rapidapi.com")
   (map (lambda (x) (display (string-append
         api-url "query?function=" api-function "&symbol=" (symbol->string x) "&apikey=" api-key "\n")))
      stock-symbols ) )
+(let
+   ((test-input-file (open-input-file "test.json"))
+      (foo "bar") )
+   (write-json (read-json test-input-file))
+   (close-input-port test-input-file) )