From 1e6808ea204cef454e41af1e2f309100ab99e9e1 Mon Sep 17 00:00:00 2001 From: Martin Grabmüller Date: Tue, 3 Apr 2001 13:19:05 +0000 Subject: Correct, update, improve and clean up a lot of docstrings in order to make the documentation much more consistent. --- libguile/struct.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'libguile/struct.c') diff --git a/libguile/struct.c b/libguile/struct.c index b57d1996f..3f86c22cf 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -503,7 +503,7 @@ SCM_DEFINE (scm_make_vtable_vtable, "make-vtable-vtable", 2, 0, 1, "sub-system: one vtable-vtable working as the root and one or several\n" "\"types\", each with a set of \"instances\". (The vtable-vtable should be\n" "compared to the class which is the class of itself.)\n\n" - "@example\n" + "@lisp\n" "(define ball-root (make-vtable-vtable \"pr\" 0))\n\n" "(define (make-ball-type ball-color)\n" " (make-struct ball-root 0\n" @@ -520,7 +520,7 @@ SCM_DEFINE (scm_make_vtable_vtable, "make-vtable-vtable", 2, 0, 1, "(define (make-ball type owner) (make-struct type 0 owner))\n\n" "(define ball (make-ball green 'Nisse))\n" "ball @result{} #\n" - "@end example\n") + "@end lisp\n") #define FUNC_NAME s_scm_make_vtable_vtable { SCM fields; -- cgit v1.2.3