;;; -*- Gerbil -*-
;;; Â© vyzo
;;; Polydactyl Gerbil prelude
;;; This is :gerbil/core with a readtable that treats [] as plain parentheses.

(import :gerbil/core
        (for-syntax :gerbil/gambit))
(export (import: :gerbil/core)
        (for-syntax read-module-body))

(module <extern>
  (extern namespace: #f
    __make-readtable
    __readtable-bracket-keyword-set!)
  (export #t))

(import (for-syntax <extern>))

(begin-syntax
  (def *readtable*
    (let (rt (__make-readtable))
      (__readtable-bracket-keyword-set! rt #f)
      rt))

  (def (read-module-body port)
    (parameterize ((current-readtable *readtable*))
      (let lp ((body []))
        (let (next (read-syntax port))
          (if (eof-object? next)
            (reverse body)
            (lp (cons next body))))))))
