;; -*-theme-d-*-

;; Copyright (C) 2017  Tommi Höynälänmaa
;; Distributed under GNU General Public License version 3,
;; see file doc/GPL-3.

;; Expected results: compilation OK


(define-interface (tests test539)

  (import (standard-library core))

  (define-generic-proc push)

  (define-generic-proc pop)

  (define-signature <stack> ()
    (push (this <integer>) <none> nonpure)
    (pop (this) <integer> nonpure)))
