;;;; cl-scopes/scratch - interactive testing

;(asdf:load-system :scopes)
(asdf:load-system :scopes-csys)

;(in-package :cl-user)
(use-package :trivial-package-local-nicknames)

;;;; csys stuff

(add-package-local-nickname :basic :scopes/csys/program/basic)
(add-package-local-nickname :environ :scopes/csys/environ)

(scopes/util/async:init)
(setf environ:*env* (environ:simple-setup (basic:config-basic-1)))

;(environ:send-value '(:s00 "0-1") 2)

;;;; iterator experiments - obsolete?

(defun make-iter ()
  (let ((pointers (vector nil nil nil)))
    (lambda (fn)
      (funcall fn pointers))))

(defun iter-current (it)
  (funcall it (lambda (p) (car (svref p 0)))))