(use-modules (thales seal))
(sealed mystic
- (1 2 *** (- 4 1)) ;; Short-cut for most common case. Expected form is evaluated
+ (1 2 *** (- 4 1)) ;; Short-cut for most common case.
+ ;; Expected form is evaluated
+
(1 2 *+* 3) ;; Same. Expected form is not evaluated.
- ((& 5 6) => 11) ;; Full form. & is bound to function beeing testing.
+ ((& 5 6) => 11) ;; Full form.
+ ;; & is bound to function beeing testing.
+
((mystic 3 4) => 7) ;; Or it can be written in full
(1 2 *** 3)) ;; This will no more fail
(define (not-exported x y)
"Some not-exported function"
(/ y x))
-
(use-modules (thales seal))
(sealed mystic
- (1 2 *** (- 4 1)) ;; Short-cut for most common case. Expected form is evaluated
+ (1 2 *** (- 4 1)) ;; Short-cut for most common case.
+ ;; Expected form is evaluated
+
(1 2 *+* 3) ;; Same. Expected form is not evaluated.
- ((& 5 6) => 11) ;; Full form. & is bound to function beeing testing.
+ ((& 5 6) => 11) ;; Full form.
+ ;; & is bound to function beeing testing.
+
((mystic 3 4) => 7) ;; Or it can be written in full
(1 2 ** 4)) ;; This will fail and abort compilation
@settitle GNU Thales
@c %**end of header
@copying
-Macroses for GNU Guile for performing unit-testing and checking backward- and forward- compability..
+Macroses for GNU Guile for unit-testing and checking compability.
Copyright @copyright{} 2014
@titlepage
@title GNU Thales
-@subtitle Macroses for GNU Guile for performing unit-testing and checking backward- and forward- compability.
+@subtitle Macroses for GNU Guile unit-testing and checking compability.
@author Dmitry Bogatov <KAction@@gnu.org>
@page
@vskip 0pt plus 1filll
After we run @code{guild compile overview.scm} and assuming, that
@var{GUILE_LOAD_PATH} is set properly.
@example
-;;; note: source file /home/kaction/work/thales/doc/examples/overview.scm
-;;; newer than compiled /home//kaction/.cache/guile/ccache/2.0-LE-8-2.0/share/home/kaction/work/thales/doc/examples/overview.scm.go
+;;; note: source file /work/thales/doc/examples/overview.scm
+;;; newer than compiled <cutted-to-fit-page>
Checking seals with & = mystic...
Compilation aborted: seal broken when evaluating
(mystic 1 2)