mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

* alist.c, chars.c, debug.c, dynl.c, dynwind.c, error.c, eval.c,

Browse source 
evalext.c, filesys.c, gc.c, hash.c, hashtab.c, ioext.c,
   keywords.c, list.c, load.c, macros.c, net_db.c, numbers.c,
   objprop.c, ports.c, posix.c, print.c, procprop.c, procs.c,
   ramap.c, regex-posix.c, root.c, scmsigs.c, simpos.c, socket.c,
   stacks.c, stime.c, strings.c, strop.c, strports.c, struct.c,
   symbols.c, throw.c, unif.c, vectors.c, version.c, vports.c,
   weaks.c: Converted docstrings to ANSI C format.

* filesys.c (scm_chmod), simpos.c (s_scm_system), version
(scm_version), vports (scm_make_soft_port): Escape " occuring
inside docstring.
This commit is contained in:
Mikael Djurfeldt 2000-01-18 11:24:37 +00:00
parent b380b88547
commit d3818c2982
4 changed files with 243 additions and 264 deletions
Download patch file Download diff file Expand all files Collapse all files

19
libguile/version.c
View file

@ -76,16 +76,15 @@ SCM_DEFINE (scm_minor_version, "minor-version", 0, 0, 0,
SCM_DEFINE (scm_version, "version", 0, 0, 0,
(),
"@deffnx primitive major-version
@deffnx primitive minor-version
Return a string describing Guile's version number, or its major or minor
version numbers, respectively.
@example
(version) @result{} "1.3a"
(major-version) @result{} "1"
(minor-version) @result{} "3a"
@end example")
"@deffnx primitive major-version\n"
"@deffnx primitive minor-version\n"
"Return a string describing Guile's version number, or its major or minor\n"
"version numbers, respectively.\n\n"
"@example\n"
"(version) @result{} \"1.3a\"\n"
"(major-version) @result{} \"1\"\n"
"(minor-version) @result{} \"3a\"\n"
"@end example")
#define FUNC_NAME s_scm_version
{
return scm_makfrom0str (GUILE_VERSION);