(define-syntax pointer-inc
  (lambda (exp rename compare)
    (let-values (((_ exp _) (##sys#module-exports (alist-ref 'lolevel ##sys#module-table))))
      (if (alist-ref 'pointer+ exp)
          `(,(rename 'pointer+) ,@(cdr exp))
          `(,(rename 'pointer-offset) ,@(cdr exp))))))


;;Error: during expansion of (pointer-inc ...) - unbound variable: let-values